' Convert string to byte

' Display value and data type

Dim nvar As Variant

Dim nstr As String

nstr = Inputbox("Number", "Enter any number", "0")

If Isnumeric(nstr) Then

nvar = Cbyte(nstr)

Messagebox nvar,, Typename(nvar)

Else

Messagebox nstr,, "Not a number"

End Sub

Example 2

'Convert an expression to a Byte

Dim MyDouble, MyByte

MyDouble = 125.5678 'MyDouble is a Double

MyByte = CByte(MyDouble) 'MyByte contains 126

See Also

CByte function

Glossary