숫자외에 모든문자를 제거 함수

Public Function gGet_Nember(strData As String) As String
‘ 내 용 : 숫자외에 모든문자를 제거한다.Dim i As Integer

Dim strNum As String
Dim strTmp As String
Dim temp_strData As String

temp_strData = strData

For i = 1 To Len(temp_strData)
strTmp = Mid(temp_strData, i, 1)
If Asc(strTmp) >= 48 And Asc(strTmp) <= 57 Then ‘숫자라면
strNum = strNum & strTmp
End If
Next i

gGet_Nember = strNum
End Function