Contact: aviboots(AT)netvision.net.il
39,926 questions
51,859 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim s AS String = "abcd" Dim tmp As String = s(0) Mid(s, 1, 1) = s(3) Mid(s, 4, 1) = tmp Console.WriteLine(s) End Sub End Module ' run: ' dbca