La imagen ya volo subela a otro host de images.
Yo lo hago de esta manera, no se si sera lo que necesitas exactamente pero seguro te sirve de algo.
Código:
Private Sub Text1_KeyPress(KeyAscii As Integer)
'Solo permite estos caracteres
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And _
Chr(KeyAscii) <> vbBack And _
Chr(KeyAscii) <> "," And _
Chr(KeyAscii) <> "." Then
KeyAscii = 0
End If
'##Solo permite que se ingrese un solo punto y una sola coma##
'1 si coloca (.) y si encuentra que ya esta el(.) then no hace nada
If Chr(KeyAscii) = "." And InStr(1, Text1, ".") > 0 Then KeyAscii = 0
'2 si coloca (,) y si encuentra que ya esta la(,) then no hace nada
If Chr(KeyAscii) = "," And InStr(1, Text1, ",") > 0 Then KeyAscii = 0
End Sub
Saludos