Вывести на экран положительные значения функции z=sin(x)-5cos(x-2) для x, изменяющегося на отрезке (-5;12) - VB

Sub main()
    Dim x As Single, z As Single, s As String
    For x = -5 To 12 Step 1.2
       z = Sin(x) - 5 * Cos(x - 2)
       If z >= 0 Then s = s & "x = " & Round(x, 1) & vbTab & "z = " & Round(z, 3) & vbCrLf
    Next x
    MsgBox s
End Sub