For Each s As String In My.Settings.Paths
        Func(s)
    Next

    For i = 1 To 4
        Func(My.Settings("Path" & i.ToString()))
    Next

    If s <> String.Empty Then
       Func(s) 
    End If

    Public Sub Func(parm As String)
       If parm = String.Empty Then Return
       '...
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov