จัดไป!!!
-----------------------------------------------------------------------------------------
Public Function ReplaceAlphabet(strData As String, pos As Integer) As String
    Dim tmpStr As String
    tmpStr = strData
    If pos > Len(strData) Then
        ReplaceAlphabet = tmpStr
        Exit Function
        Else
            If Not (IsNumeric(Mid(strData, pos, 1))) Then
               tmpStr = Replace(tmpStr, Mid(tmpStr, pos, 1), "0")
               ReplaceAlphabet = ReplaceAlphabet(tmpStr, pos)
               Else
                    ReplaceAlphabet = ReplaceAlphabet(tmpStr, pos + 1)
            End If
    End If
End Function

รบกวนอาจารย์ช่วยอธิบายเพิ่มเติม หรือยกตัวอย่าง
ถึงวิธีการนำไปใช้ด้วยครับ

สมมติผมจะป้อนข้อมูลที่ Text1 แล้วให้โค้ดทำงานเมื่อกดปุ่ม Enter ก็ใส่โค้ด Text1_AfterUpdate ดังนี้
------------------------------------------------------------------------------------------
Private Sub Text1_AfterUpdate()
    Text2 = ReplaceAlphabet(Text1, 1)
End Sub


แต่ถ้าให้โค้ดทำงานเมื่อกดปุ่ม Command1 ก็ใส่โค้ดดังนี้
------------------------------------------------------------------------------------------
Private Sub Command1_Click()
    Text2 = ReplaceAlphabet(Text1, 1)
End Sub


*** หมายเหตุ
     อาจนำไปประยุกต์ใช้กับ Report, Query หรือร่วมกับโค้ดอื่น ๆ ได้ แล้วแต่ความต้องการ

ขอขอบคุณอาจารย์มากๆเลย ครับ
เข้าใจ และทำได้แล้ว
ขอให้อาจารย์ สุขภาพแข็งแรง ร่ำรวย และมีความสุขมากๆ นะครับ