Function GetNumbers(Value As String) As String Dim Index As Long Dim Final As String For Index = 1 To Len(Value) If Mid(Value, Index, 1) Like "[0-9]" Then Final = Final & Mid(Value, Index, 1) End If Next GetNumbers = Final End Function