Dim a as byte, s As String * 10
s = "123"
a = Val(s) 'convert string
' 123