Dim A As Byte , S As String * 10

S = "123"

A = Val(s) 'convert string

Print A ' 123