Public Function selekcja(x)
Select Case x
Case 1
x = x + 100
Case 2
x = x + 200
Case Else
x = "wpisz1albo2"
End Select
End Function