Dim A As String = 100

        Dim B As Integer = 1

        Dim AA As Integer = Val(A) + B

        Label1.Text = AA

        Label2.Text = AA.ToString