Function JustNumbers(strMixed)
Dim strJustNumbers
Dim intCount
	If IsNull(strMixed) Then
		JustNumbers = ""
		Exit Function
	End If
	If strMixed = "" Then
		JustNumbers = ""
		Exit Function
	End If
	strJustNumbers = ""
	For intCount = 1 to Len(strMixed)
		Select Case Mid(strMixed, intCount, 1)
			Case "0","1","2","3","4","5","6","7","8","9"
				strJustNumbers = strJustNumbers & Mid(strMixed, intCount, 1)
			Case Else
				'Do nothing
		End Select
	Next
	JustNumbers = strJustNumbers
End Function