ช่วยอธิบายขั้นตอนการทำงานของ Function นี้ด้วยครับและได้ผลลัพธ์เป็นเท่าไหร่

Dim x As Integer = 6
        Dim y As Integer = 7
        Dim z As Integer = 8
Dim value As String = ""
        Foo(y)
        MsgBox(value)
    End Sub
    Function Foo(x)
        value = value + x.ToString
        If (x < 9) Then
            Foo(x + 1)
        End If
        value = value + x.ToString
    End Function