Visual Basic - Filtrar datos de entrada de mscomm

Hola!!
Les cuento, estoy haciendo un aplicación para pesar camiones por lo cual conecto la bascula mediante un puerto serial.
Al tener que trabajar con distintos cabezales de basculas, necesito unificar el formato de entrada de datos a mi sistema, como si fuese mi propio protocolo.
Bien, quisiera saber el método mas conveniente para llegar a estos resultados:

Posibles entradas: Me debería quedar:
044520 kg. (salto de linea) 044520
44520 044520
unoscaracteres044520demascarateres 044520

Se entiende? Yo solo quiero el peso con un formato de 6 dígitos. Sé que es mediante la función format, pero no se me ocurre como setearla para abarcar tantas posibilidades

Desde ya muchas gracias!!
__________________

Aclaro para que se entienda mejor:

Posibles entradas: ------> Me debería quedar:
044520 kg. (salto de linea) ------> 044520
44520 ------> 044520
unoscaracteres044520demascarateres ------> 044520

Puedes intentar con esto

Dim i As Integer
Dim r, s As String

s = [Cadena obtenida del com]
For i = 1 To Len(s)
If IsNumeric(Mid(s, i, 1)) Then r = r & Mid(s, i, 1)
Next i
r = Format(CLng(r), "000000")

y lo que quieres está en la variable r

Espero que te sirva.

Saludos.

Muchas gracias por la ayuda!! si bien no use el codigo que me facilitaron, me dio ideas para mi problema.
al conocer bien el formato de la cadena de entrada,lo solucione de la siguiente manera:

entrada = Mid$(mscomm1.Input, 5, 6) 'desde el caracter 5, los proximos 6 que es donde se encuentrra el peso

Gracias!