If Koruny = 1 Then
Select Case dblCislo
Case 1
ktmp = "Eur"
Case 2, 3, 4
ktmp = "Euro"
Case Else
ktmp = "Eura"
End Select
strVysledek = strVysledek & " " & ktmp
End If
Tak nějak by to mělo vypadat?
If Koruny = 1 Then
Select Case dblCislo
Case 1
ktmp = "Eur"
Case 2, 3, 4
ktmp = "Euro"
Case Else
ktmp = "Eura"
End Select
strVysledek = strVysledek & " " & ktmp
End If
Tak nějak by to mělo vypadat?