mation
    Exit Function
End Function
Public Function SaveFile() As Boolean
Dim sName As String
Dim iPos As Long
Dim i As Long
Dim c As New GCommonDialog

On Error GoTo SaveFileError

    ' Strip extenstion:
    For i = Len(m_sFIleName) To 1 Step -1
        If (Mid$(m_sFIleName, i, 1) = ".") Then
            iPos = i - 1
            Exit For
        End If
    Next i
    If (iPos &gt; 1) Then
        sName = Left$(m_sFIleName, iPos) &amp; ".bmp"
    Else
        sName = m_sFIleName &amp; ".bmp"
    End If
 