>>442

　 ∧,,∧
ミσﾟДﾟﾐσ

Private Const NumericTable As String = "0123456789"

Function ExtractNumeric(ByVal S As String) As String
　Dim i As Integer
　
　For i = 1 To Len(S)
　　If 1 <= InStr(NumericTable, Mid$(S, i, 1)) Then
　　　ExtractNumeric = ExtractNumeric & Mid$(S, i, 1)
　　End If
　Next i
End Function