VB6 Menghapus spasi berlebih

seringkali kita dihadapkan dengan spasi berlebih, baik di sebelum teks maupun sesudah text atau ditengah teks.
disini diberikan contoh penggunaan, TRIM dan REPLACE untuk menghilangkan spasi berlebih atau menghilangkan spasi

Private Sub Form_Activate()
'Trim: Untuk menghilangkan spasi
'dari kiri dan kanan teks
'Relace : untuk mengganti karakter
'dengan karakter yang kita inginkan
'dlam hal ini (2 spasi diganti 1 spasi di ulang)
A = " Mohu "
b = " Lo du " 'spasi ditengah lebih dari 3
c = "55 5A F2 B0 93 86 90 B5 6A 43 78 73 84 AD FC AF"
Do Until InStr(b, " ") = 0 'di ulang sampai tidak ditemukan 2 spasi
b = Replace(b, " ", " ")
Loop
c = Replace(c, " ", "")
Print Trim(A) ' "Mohu"
Print Trim(b) ' "Lo du"
Print c '"555AF2B0938690B56A43787384ADFCAF"
End Sub

terima kasih