Replace Spaces with Underscores

If Not IsNull(Forms("frmRA")![Customer Name]) Then

Do

Forms("frmRA")![Customer Name] = Replace(Forms("frmRA")![Customer Name], " ", "_")

Loop Until InStr(Forms("frmRA")![Customer Name], "--") = 0

RemoveThings = Forms("frmRA")![Customer Name]

End If