Remove spaces () * and text from telephone numbers

I have beem given code to remove spaces, () * and text from ContactTelephone and update CleanTel with the clean number.  Unfortunately I keep getting the error message "Undefined function'removealphas' in expression.  I have been trying for several hours to make it work, but being a novice my head is just about to explode!

Please help

Sub CleanTEMPTable()

    Dim AlphaNum As Variant
    Dim Clean As String
    Dim Pos, A_Char$
    Dim removealphas As String

   Pos = 1
   If IsNull(AlphaNum) Then Exit Sub

   For Pos = 1 To Len(AlphaNum)
      A_Char$ = Mid(AlphaNum, Pos, 1)
      If A_Char$ >= "0" And A_Char$ <= "9" Then
         Clean$ = Clean$ + A_Char$
      End If
   Next Pos

   removealphas = Clean$


   Pos = 1
   If IsNull(AlphaNum) Then Exit Sub

   For Pos = 1 To Len(AlphaNum)
      A_Char$ = Mid(AlphaNum, Pos, 1)
      If (A_Char$ >= "A" And A_Char$ <= "Z") Or (A_Char$ >= "0" And A_Char$ <= "9") Then
         Clean$ = Clean$ + A_Char$
      End If
   Next Pos

   RemoveSpaces = Clean$


   Dim db As DAO.Database
   Dim rst As DAO.Recordset
   Dim already As Boolean

   already = False

   Set db = CurrentDb()
   strSQL = "SELECT * FROM tblTEMPTable"
   Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

   For i = 0 To rst.Fields.Count - 1
      If rst.Fields(i).Name = "CleanTel" Then already = True
   Next i

   rst.Close
   Set rst = Nothing
   db.Close
   Set db = Nothing

   If Not already Then
      strSQL = "ALTER TABLE tblTEMPTable ADD CleanTel varchar(50)"
      DoCmd.RunSQL (strSQL)
   End If


   strSQL = "UPDATE tblTEMPTable SET tblTEMPTable.CleanTel = removealphas([ContactTelephone]) " _
          & "WHERE (((tblTEMPTable.CleanTel) Is Null) AND " _
          & "((tblTEMPTable.ContactTelephone) Is Not Null));"
         
   DoCmd.SetWarnings False
   DoCmd.RunSQL (strSQL)
   DoCmd.SetWarnings True

End Sub