i made application for computing totient function
but it doesn't give me any result
this is a code
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer
        n = CStr(TextBox1.Text)

        Dim phi As Integer
        Dim i As Integer

        phi = 0
        'Dim i As Integer
...