Private Sub Command1_Click()Dim i As IntegerDim j As IntegerDim S As StringDim S1 As StringDim S2 As StringDim L As IntegerS1 = Text1.TextL = Len(S1)S = ""For i = 1 To L S2 = Mid(S1, i, 1) For j = 0 To 99
If S2 = d(j) Then
If j < 10 Then
S = S & "0" & CStr(j)
El...