Public Class Form1
Public sStrVal1 As String = "abcd"
Public sStrVal2 As String = "abcde"
Public sStrVal3 As String = "ab"
Public sStrVal4 As String = "abcdef"
Public sStrVal5 As String = "a"
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim longestName As String = ""
Dim longestValue As String = ""
Dim varName As String
Dim varValue As String
For i As Integer = 1 To 5
varName = "sStrVal" & i
varValue = CallByName(Me, varName, CallType.Get)
If longestName = "" OrElse varValue.Length > longestValue.Length Then
longestName = varName
longestValue = varValue
End If
Next
MessageBox.Show(longestName & " = " & longestValue)
End Sub
End Class
Open in new window
If it's only two values, then just compare Len(str1) > Len(str2)