Userform not displaying in VBA - json

Question

I have this code that gets the distance between two places. It should open a Userform so I can choose between the 3 different routes but the Userform is never displayed and the value of the cell I call the function from just displays #VALUE!.
Does anyone have a solution for this? Thanks!
I used the same function earlier with only one leg of the route and that worked perfectly. but I need to be able to choose.
Option Explicit
Dim SelectedRoute As Integer
Dim httpReq As Object
Dim leg As Variant
Function TRAVELDISTANCE(origin, destination, apikey)
Dim strUrl As String
strUrl = "https://maps.googleapis.com/maps/api/directions/json?origin=" & origin & "&destination=" & destination & "&key=" & apikey
Set httpReq = CreateObject("MSXML2.XMLHTTP")
With httpReq
.Open "GET", strUrl, False
.Send
End With
Dim response As String
response = httpReq.ResponseText
Dim parsed As Dictionary
Set parsed = JsonConverter.ParseJson(response)
Dim i As Integer
Dim distances(1 To 3) As Long
Dim legs As Variant
legs = parsed("routes")
For i = 1 To 3
For Each leg In legs(i)("legs")
distances(i) = distances(i) + leg("distance")("value")
Next leg
Next i
ShowRoutesForm distances
TRAVELDISTANCE = distances(SelectedRoute)
End Function
Sub ShowRoutesForm(distances As Variant)
Dim frm As Object
Set frm = CreateObject("UserForm")
With frm
.Caption = "Select a Route"
.Width = 300
.Height = 200
Dim lblRoute1 As Object
Set lblRoute1 = .Controls.Add("Forms.Label.1")
With lblRoute1
.Caption = "Route 1: " & distances(1) & " meters"
.Left = 20
.Top = 20
.Width = 250
End With
Dim lblRoute2 As Object
Set lblRoute2 = .Controls.Add("Forms.Label.1")
With lblRoute2
.Caption = "Route 2: " & distances(2) & " meters"
.Left = 20
.Top = 40
.Width = 250
End With
Dim lblRoute3 As Object
Set lblRoute3 = .Controls.Add("Forms.Label.1")
With lblRoute3
.Caption = "Route 3: " & distances(3) & " meters"
.Left = 20
.Top = 60
.Width = 250
End With
Dim cmdOK As Object
Set cmdOK = .Controls.Add("Forms.CommandButton.1")
With cmdOK
.Caption = "OK"
.Left = 20
.Top = 100
.Width = 100
.Height = 25
End With
Dim cmdCancel As Object
Set cmdCancel = .Controls.Add("Forms.CommandButton.1")
With cmdCancel
.Caption = "Cancel"
.Left = 150
.Top = 100
.Width = 100
.Height = 25
End With
On Error Resume Next
frm.Show
If Err.Number <> 0 Then
MsgBox "Error " & Err.Number & ": " & Err.Description
End If
On Error GoTo 0
End With
If frm.ModalResult = 1 Then
SelectedRoute = 1
ElseIf frm.ModalResult = 2 Then
SelectedRoute = 2
ElseIf frm.ModalResult = 3 Then
SelectedRoute = 3
Else
SelectedRoute = 0
End If
ElseIf frm.ModalResult = 2 Then
SelectedRoute = 2
ElseIf frm.ModalResult = 3 Then
SelectedRoute = 3
Else
SelectedRoute = 0
End If
Set frm = Nothing
End Sub
Private Sub cmdOK_Click()
ModalResult = 1
Unload Me
End Sub
Private Sub cmdCancel_Click()
ModalResult = 0
Unload Me
End Sub