sFuncKeys = "Commands (Function Keys) on " & Trim$(oMimsx.Screen.MSO.Name) & " are: " & vbCrLf
For iFuncKeys = 1 To oMimsx.Screen.MSO.Commands.Count
sFuncKeys = sFuncKeys & CStr(iFuncKeys) & " " & oMimsx.Screen.MSO.Commands(iFuncKeys).Name & vbCrLf
Next iFuncKeys
Msgbox sFuncKeys