Hola
Te pongo como sería el principio (solo con los billetes), al final se resume todo a ir dividiendo entre el número de la moneda y en otra variable guardar el resto.
Código:
Dim Cincuenta As Integer
Dim Veinte As Integer
Dim Diez As Integer
Dim Cinco As Integer
Dim resto As Single
Cincuenta = Int(Text1.Text / 50)
resto = Text1.Text Mod 50
Veinte = Int(resto / 20)
resto = resto Mod 20
Diez = Int(resto / 10)
resto = resto Mod 10
Cinco = Int(resto / 5)
MsgBox "Cincuenta: " & Cincuenta & vbCr & "Veinte: " & Veinte & vbCr & "Diez: " & Diez & vbCr & "Cinco: " & Cinco
Seguro que con esto puedes continuar con las monedas.
--Saludos--