Sub Test() Dim s As String Dim s1 As String s = Dir(UserDataPath & "GMS\*.gms") Do If s = "" Then Exit Do s = s & s1 & vbCrLf s1 = Dir Loop Until s1 = "" s = s & Dir(SetupPath & "Draw\GMS\*.gms") Do If s = "" Then Exit Do s = s & s1 & vbCrLf s1 = Dir Loop Until s1 = "" MsgBox s, , "The following GMS files are installed:" End Sub