Argument not optional - VB

Формулировка задачи:

И я снова тут. Я почти закончил програмку, но опять ошибка, вот код:

Sub vairis()
Dim x As Integer
Dim f As Double
x = InputBox("Ievadiet x!")
 
If (x < -3) Or (x > -1) Then
   f = (1 / Sqr(x ^ 2) + 4 * x + 3)
ElseIf (x > -2.5) Or (x < -1.5) Then
   f = Sqr(3 - 2 * x)
End If
 
MsgBox str, vbkonly, "Result"
 
End Sub

Спасибо за помощь. P.S И есле не сложно сказать, Как мне вывести ответ. По условию, код пройдёт, но я не где не вывожу ответ, что/ f = (Ответ)

Решение задачи: «Argument not optional»

textual
                            Листинг программы 
                        

                            Sub vairis()
Dim x As Integer
Dim f As Double
x = InputBox("Ievadiet x!")
 
If (x < -3) Or (x > -1) Then
   f = (1 / Sqr(x ^ 2) + 4 * x + 3)
ElseIf (x > -2.5) Or (x < -1.5) Then
   f = Sqr(3 - 2 * x)
End If
 
MsgBox f, vbOKOnly, "Result"
 
End Sub
                        