Dim A As String = 100
Dim B As Integer = 1
Dim AA As Integer = Val(A) + B
Label1.Text = AA
Label2.Text = AA.ToString