Bueno en la foto no se ve nada seria mejor si lo pones mas grande

Para Crear La Funcion   vb   le das a herramientas o tools  agregar procedimiento



ejemplo:

Public Sub Procedimientos()
Tu Codigo Va Aqui
 

Private Comando sub ()

Call Procedimientos 

Esta Pensando Algo asi



 

Private Sub text1_Change()
text1.text=Val(text1.text )
MsgBox "La Transferencia Ha Sido Completada"
 

Asi Me Deja Poner Cualquier Valor

Lo del msgbox sigue igual

Como Hago Cuando Yo Termino de digitar el precio me salga este mensaje   

 msgbox"La Transferencia Ha Sido Completada"

seria en un evento change   text1change()

Cuando Digito algo siempre me sale el mensaje  si quiero poner 4,000 me  sale cada vez que voy digitando un numero   no me deja poner el precio total

Private Sub text1_Change()
text1.text=text1.text 
MsgBox "La Transferencia Ha Sido Completada"
 

Ya Lo Del Listbox esta resuelto  Gracias Flamer Por Tu Respuesta

Si Me Di Cuenta Metiendo tanto codigo

Private Sub Agua_Click()
List1.Visible = True
If Form2.Agua = True Then
Form4.lblservicio = Form2.Agua.Caption
End If
End Sub

Disculpa Flamer Lo Mismo Se Hace con listbox??

form2.list1.text=form4.lbldepartamento

Ya esta Resuelto 

Si Yo Tengo Un Boton Comando Llamado Agua    En Un Formulario(Form2) A Darle Click Se Podria Pasar a un Label El Formulario 4?

Como Con Los Textbox Y Labels    Lo que yo Pongo en el textbox (form2)  me sale en el label (form3)




Mi Pregunta es se Puede Hacer Esto Con Un  Boton Comando  y un listbox ?????

Como Hago Para que cuando yo termino lo que digite me salga este mensaje

sin usar comandos

Private Sub TXTprecio_Change()
If TXTprecio = TXTprecio Then
TXTprecio.SetFocus
End If
MsgBox "La Transferencia Ha Sido Completada"
End Sub

  Me Di Cuenta Ahora

Excusa  Mi Hermano Pensaba que  Borraste El Archivo