Здр. пробвам да си направя калкулатор да ми изчислява стойноста на златото и стигнах до тук,но искам и да ми смята и с USD и BGN , а не мога да се справя.Даже незнам дали в този си вид кода е вярен но си смята вярно.
Моля за малко помощ за новака



Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
Dim Karat As Decimal = lstListBox1.Text
Dim EUR As String

If cb1.SelectedIndex = 0 Then 'Това е за Унция
EUR = 1051.78
ElseIf cb1.SelectedIndex = 1 Then 'Това е за Грам
EUR = 33.82
ElseIf cb1.SelectedIndex = 2 Then 'Това е за Килограм
EUR = 33785.3

End If
If Karat = 24 Then
lblTotal.Text = txtValue.Text * EUR
ElseIf Karat < 24 Then
lblTotal.Text = EUR / (24 / lstListBox1.Text) * txtValue.Text
Else

End If
If txtValue.Text <= 0 Then
MsgBox("Enter Value", MsgBoxStyle.Critical, "Value")
Return

End If
End Sub