Dim price_enetered As String

'declared variables

Dim first_value As Integer

Dim second_value As Integer

Dim one_var As String

Dim remainder As Integer

'flagged

Dim flag_set As Integer

For wtab = 1 To Len(Text1.Text)

Let one_var = Mid(Text1.Text, wtab, 1)

If one_var = "." Then

first_value = Mid(Text1.Text, 1, wtab - 1)

second_value = Mid(Text1.Text, wtab + 1, Len(Text1.Text))

End If

Next wtab

'divide the first value to see what it will divide into

'there are three 4 notes in my currency

'£5 £10 £20 £50

'The first value

'i have only done this as a value of £10

'you can work the rest out from this

If first_value < 2 Then

List1.AddItem first_value & " Pound Coin"

Else

If first_value < 5 Then

List1.AddItem first_value & " Pound Coins"

Else

If first_value < 10 Then

remainder = first_value - 5

If remainder < 2 Then

List1.AddItem "5 pound note " & remainder & " Pound Coin"

Else

List1.AddItem "5 pound note " & remainder & " Pound Coins"

End If

End If

End If

End If

'i have only done the first instance

If second_value > 5 Then

Let remainder = second_value - 5

If remainder < 2 Then

List1.AddItem "5 pence piece and " & remainder & " pence piece"

Else

List1.AddItem "5 pence and " & remainder & " penny pieces"

End If

End If

Let price_entered = Text1.Text

End Sub

i hope this gives you what you need !!! i have only coded the first instances but at least it will give you an idea where to start from :^)

get in touch if you need any help