Public Class Form1
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
    Me.TextBox2.Text = GrößterTeiler(Me.TextBox1.Text)
  End Sub
 
  ''' <summary>
  ''' Liefert den größten Teiler einer Zahl.
  ''' </summary>
  ''' <param name="Zahl">Die zu teilende Zahl.</param>
  ''' <returns>Größter Teiler oder -1 bei Primzahl.</returns>
  ''' <remarks></remarks>
  Private Function GrößterTeiler(ByVal Zahl As Integer) As Integer
    For i as Integer = Zahl \ 2 To 2 Step -1
      If Zahl Mod i = 0 Then
        Return i
      End If
    Next
    Return -1
  End Function
 
End Class

Imports System.Runtime.CompilerServices
Public Class Form1
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
    Me.TextBox2.Text = CInt(Me.TextBox1.Text).GrößterTeiler
  End Sub
 
End Class
 
Module Funktionen
 
  ''' <summary>
  ''' Liefert den größten Teiler einer Zahl.
  ''' </summary>
  ''' <param name="Zahl">Die zu teilende Zahl.</param>
  ''' <returns>Größter Teiler oder -1 bei Primzahl.</returns>
  ''' <remarks></remarks>
  <Extension()> Friend Function GrößterTeiler(ByVal Zahl As Integer) As Integer
    For i = Zahl \ 2 To 2 Step -1
      If Zahl Mod i = 0 Then
        Return i
      End If
    Next
    Return -1
  End Function
 
End Module