[Resolved] label feltételes formázása

Sziasztok!
Van egy valuta váltó program féleségem.
Szeretném megoldani, hogy ha pl.. Ft-ot USD-ra váltok akkor a labelen USD-ban jelenjen meg a szám, ha fontra akkor GBP-ban stb…
Option Explicit

Private Sub CommandButton1_Click()
Dim rates(0 To 4, 0 To 4) As Double, i As Integer, j As Integer

rates(0, 0) = Sheets(„rss”).Range(„D161”).Value ‘ euro 161
rates(0, 1) = Sheets(„rss”).Range(„D162”).Value
rates(0, 2) = Sheets(„rss”).Range(„D163”).Value
rates(0, 3) = Sheets(„rss”).Range(„D164”).Value
rates(0, 4) = Sheets(„rss”).Range(„d165”).Value

rates(1, 0) = Sheets(„rss”).Range(„E161”)
rates(1, 1) = Sheets(„rss”).Range(„E162”) ‘GBP 162
rates(1, 2) = Sheets(„rss”).Range(„E163”)
rates(1, 3) = Sheets(„rss”).Range(„E164”)
rates(1, 4) = Sheets(„rss”).Range(„e165”)

rates(2, 0) = Sheets(„rss”).Range(„F161”)
rates(2, 1) = Sheets(„rss”).Range(„F162”)
rates(2, 2) = Sheets(„rss”).Range(„F163”) ‘ CHF 163
rates(2, 3) = Sheets(„rss”).Range(„F164”)
rates(2, 4) = Sheets(„rss”).Range(„f165”)

rates(3, 0) = Sheets(„rss”).Range(„G161”)
rates(3, 1) = Sheets(„rss”).Range(„G162”)
rates(3, 2) = Sheets(„rss”).Range(„G163”)
rates(3, 3) = Sheets(„rss”).Range(„G164”) ‘ USD 164
rates(3, 4) = Sheets(„rss”).Range(„g165”)

rates(4, 0) = Sheets(„rss”).Range(„h161”)
rates(4, 1) = Sheets(„rss”).Range(„h162”)
rates(4, 2) = Sheets(„rss”).Range(„h163”)
rates(4, 3) = Sheets(„rss”).Range(„h164”)
rates(4, 4) = Sheets(„rss”).Range(„h165”) ‘ HUF 165

For i = 0 To 4
For j = 0 To 4
If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then Label1.Caption = TextBox1.Value * rates(i, j)
Next j
Next i

End Sub

Private Sub CommandButton2_Click()
Call frmCalculator.SHOW
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub TextBox2_Change()
TextBox2.Text = Left(TextBox2.Text, 7)

End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim HUF

With ListBox1
.AddItem „Euro”
.AddItem „GBP”
.AddItem „CHF”
.AddItem „USD”
.AddItem „HUF”

End With
With ListBox2
.AddItem „Euro”
.AddItem „GBP”
.AddItem „CHF”
.AddItem „USD”
.AddItem „HUF”

End With

ListBox1.ListIndex = 0
ListBox2.ListIndex = 4

TextBox1.Value = 1

Label1.Caption = Sheets(„rss”).Range(„d161”)
If ListBox2.Value = „HUF” Then
Label1.Caption = Format(Label1.Caption, „# #00.00 Ft”)
ElseIf ListBox2.Value = „USD” Then
Label1.Caption = Format(Label1.Caption, „# #00.00 USD”)
End If
End Sub

itt a végén látszik, hogy próbálkoztam, de nem sok sikerrel…
Köszönöm a segítséget! Potus