Outlook Folder

Increaded to 25 for working answer

I use this function I found on the net to open my mail (Outlook98) in the InBox.
However, it opens half screen..anyone know how to adjust it to have it open the folder maximized?'open folder in outlook

Public Function OpenFolder(FldrName As String)
    Dim olApp As New Outlook.Application
    Dim nsMAPI As Outlook.NameSpace
    Set nsMAPI = olApp.GetNamespace("MAPI")
    Dim d As Long
    For d = 1 To nsMAPI.Folders.Count
        Dim p
        For p = 1 To nsMAPI.Folders.Item(d).Folders.Count
            If nsMAPI.Folders.Item(d).Folders.Item(p).Name = FldrName Then
 nsMAPI.Folders.Item(d).Folders.Item(p).Display
                Exit Function
                End If
            Next p
        Next d
End Function

'thanks,
'Wayne