VB Snippet - Determine Screen resolution

VB Code:

'*******************************************************************************
' SCREENSIZE (SUB)
'
' DESCRIPTION:
' DETERMINE SCREEN SIZE
 '*******************************************************************************
 
Sub SCREENSIZE()
    
    Dim iWidth As Integer
    
    Dim iHeight As Integer
    
    iWidth = Screen.Width / Screen.TwipsPerPixelX
    
    iHeight = Screen.Height / Screen.TwipsPerPixelY
    
    RESOLUTION = iWidth & "X" & iHeight
    
End Sub