Option Explicit
Sub OPISZ()
Dim staz As Integer
Dim imie As String
Dim nazwisko As String
Dim data_zatrudnienia As Date
Dim pensja As Double
Dim dodatek_stazowy As Double
Dim Info1 As String
Dim Info2 As String
Dim okreslenie_stazu As String

imie = Range("A2").Value
nazwisko = Range("B2").Value
data_zatrudnienia = Range("C2").Value
pensja = Range("D2").Value

staz = Year(Now()) - Year(data_zatrudnienia)

Select Case staz

   Case 0
    okreslenie_stazu = " nie posiada stazu rocznego"
   Case 1
     okreslenie_stazu = "posiada staz roczny"
   Case Else
      okreslenie_stazu = "posiada" & CStr(staz) & "lat stazu pracy"
End Select

Info1 = imie & " " & nazwisko & " " & okreslenie_stazu
Range("A3").Value = Info1

If staz > 1 Then
    dodatek_stazowy = staz * pensja / 100
    Info2 = "PRACOWNIK" & imie & " " & nazwisko & " OTRZYMUJE DODATEK w wysokosci" & CStr(Round(dodatek_stazowy, 2)) & "zlotych"
Else
    Info2 = " pracownik" & imie & " " & nazwisko & " Nie otrzymuje "
End If
Range("A4").Value = Info2
End Sub