Membuang Space Yang Berlebih Pada Sebuah Kalimat

Masukkan souce ini ke dalam Form :Public Function TrimALL(ByVal TextIN As String) As String TrimALL = Trim(TextIN) While InStr(TrimALL, String(2, " ")) > 0 TrimALL = Replace(TrimALL, String(2, " "), " ") Wend End Function Private Sub Form_Load() MsgBox TrimALL("Hello ! ! ! This function removes all extra spaces from strings") End Sub