Como convertir un codigo de .NET a VB6

[Ace_ventura]

Buenas tardes a todos, en esta ocasión vengo solicitando el favor que me puedan pasar este código que esta en .NET a Visual Basic 6, soy muy novato en ambos temas y necesito su valiosa ayuda. El codigo lo que hace es tomar en una cadena donde hay varios espacios en blanco entre lo escrito y que quede solo un espacio en blanco, si tengo la cadena:

Código PHP:

  "hola    mi      nombre es   Ace       Ventura" 
   

, me retorne:

Código PHP:

  "Hola mi nombre es Ace Ventura" 
   

. Muchas gracias de antemano.

Aqui el codigo en .NET

Código PHP:

  Imports System.Text.RegularExpressions
Module Example

Public Sub Main()
Dim input As String = "This is text with far too much whitespace."
Dim pattern As String = "\s+"
Dim replacement As String = " "
Dim result As String = Regex.Replace(input, pattern, replacement)

Console.WriteLine("Original String: {0}", input)
Console.WriteLine("Replacement String: {0}", result)
End Sub

End Module

' The example displays the following output:
' Original String: This is text with far too much whitespace.
 Replacement String: This is text with far too much whitespace. 
   

Si este tema no va en este foro solicito el favor sea colocado donde corresponde.

[culd]

Se me ocurrio de la siguiente forma, fijate si te sirve

Código vb:

'----- Programed By CULD -----
Public Sub Main()
Dim inputt As String 'doble t por que es palabra reservada
Dim pattern As String = "  "
Dim replacement As String = " "
Dim result As String
 
inputt = "This   is   text   with far too much whitespace."
result = inputt
 
While (InStr(1, result, pattern, 1)) > 1
 result = Replace(result, pattern, replacement)
Wend
 
Msgbox "Original String: " & input)
msgbox "Replacement String: " & result)
End Sub