Sub ConverttoNumberandStr()
    Dim stringTobyte As Byte
    Dim stringToInteger As Integer
    Dim stringToDouble As Double

    myString = "   523   6 5 8 "
    myNumber = 456283
    'convert String to Integer
    stringTobyte = CByte(myString) 'Max 255
    stringToInteger = CInt(myString) 'Max 36000
    stringToDouble = CDbl(myString) 'Max  Big Numbers
    numbertotext = CStr(myNumber) 'Anything will in string
End Sub