Ria,

Try this

Function Encrypt(inp)
Dim aryLetters()
Dim i
Dim sTemp As String
aryLetters = Array("q", "t", "r", "k", "b", "a", "c", "z", "o", "u")
For i = 1 To Len(inp)
If IsNumeric(Mid(inp, i, 1)) Then
sTemp = sTemp & aryLetters(Mid(inp, i, 1))
Else
sTemp = sTemp & Mid(inp, i, 1)
End If
Next i
Encrypt = sTemp
End Function


--

HTH

RP

"ria" wrote in message
...
I would like to create a macro that could convert numbers into text.
1=t,2=r,3=k,4=b,5=a,6=c,7=z,8=o,9=u,0=q

eg

123.45 should be trk.ba

Thanks