Public Sub Swap(Of t)(ByRef a As t, ByRef b As t)
        Dim t1 As t = b
        b = a
        a = t1
    End Sub
 
 
    Private Sub Test()
 
        Dim i, j As Integer
 
        i = 2
        j = 3
 
        Swap(i, j)
 
        Dim d1, d2 As Double
        d1 = 1.3
        d2 = 2.5
 
        Swap(d1, d2)
 
        Dim s1, s2 As String
        s1 = "str1"
        s2 = "str2"
 
        Swap(s1, s2)
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist