Convert text to numbers

[Mclaren]

If i have a string in a text box, lets say the word "Computer"

i need a way to convert that to a number and then back again.

[Mclaren]

Solved :

Private Function CreateSerialNumber()

Dim MyText As String
Dim i As Integer
Dim LengthOfText As Integer
Dim Result As String

MyText = Me.TxtPCName
LengthOfText = Len(MyText)

For i = 1 To LengthOfText
Result = Result & CStr(Asc(Mid$(MyText, i, 1)))
Next i
Me.TxtNum = Result

End Function

[RuralGuy]

Thanks for sharing your solution.