Hallar el cociente y el residuo de los numeros enteros

Public Class Form2

    Dim n1, n2, c, r As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        n1 = Val(Me.TextBox1.Text)

        n2 = Val(Me.TextBox2.Text)

        c = n1 \ n2

        r = n1 Mod n2

        Me.TextBox3.Text = Str(c)

        Me.TextBox4.Text = Str(r)

    End Sub

End Class