VB6 Code - Menghapus Spasi Rangkap

Di bawah ini merupakan fungsi VB6 untuk menghapus/menghilangkan spasi yang tidak diperlukan (spasi rangkap).

Option Explicit

Private Function DelJunkSpace(str As String) As String
    Do While (InStr(str, "  ") > 0)
        str = Replace(str, "  ", " ")
    Loop
    DelJunkSpace = str
End Function

Contoh penggunaan fungsi di atas

Private Sub Form_Load()
    Dim str As String
    str = "Asep         Hibban        http://4basic-vb.blogspot.com"
    'menjadi = "Asep Hibban http://4basic-vb.blogspot.com"
    Text1.Text = str
End Sub