Visual Basic - Formato de Numeros

Hola que tal como puedo hacer esto

tengo un text box llamado text1

y le pongo "10000" y cuando se haga el evento LOST_FOCUS

los 10000 pasen a 10.000,00 o sea a formato de numero con 2 decimales

y si pongo 10000,32123 me ponga 10.000,32

como puedo Hacer esto :'( Ayudenme please

Gracias de antemano

se me ocurre esto
usa la instruccion instr para buscar si hay o no un (,) en lo ingresado, si la hay instr te devuelve la posicion, sabiendo eso puedes usar la instruccion mid para partir el texto en la parte entera para los separadores de miles y en la parte decimal para le dejas 2 o le agregas los que falten

Dim entero As String
Dim decimales As String
Dim resultado As String
If InStr(1, Text1.Text, ",", vbTextCompare) = 0 Then
tu codigo para colocar los separadores de miles
Else
entero = Mid(Text1.Text, 1, InStr(1, Text1.Text, ",", vbTextCompare) - 1)
decimales = Mid(Text1.Text, InStr(1, Text1.Text, ",", vbTextCompare) + 1, Len(Text1.Text) - InStr(1, Text1.Text, ",", vbTextCompare))
trabaja con entero para la separacion de miles
Select Case Len(decimales)
Case 1
decimales = decimales & "0"
Case Is > 2
decimales = Mid(decimales, 1, 2)
End Select
resultado = entero & "," & decimales
End If


este codigo deberia ayudarle a solucionar tu problema

suerte

Eso se puede reducir a 3 lineas de codigo
Creo que seria mas facil si usas esto:
Dim strValor As String
strValor = Format(Val(Text1.Text), "0,##.00")
Text1.Text = strValor
El numero de ceros al final del punto es el numero de decimales.
Saludos

Tengo un control que lo hace teniendo en cuenta la configuración regional, si quieres te lo envío.