VB SCRIPT HELP

[ugly-nerd]

Code: Select all

    Dim sFile As String


   With dlgCommonDialog
       .DialogTitle = "Open"
       .CancelError = False
       'ToDo: set the flags and attributes of the common dialog control
       .Filter = "All Files (*.*)|*.*"
       .ShowOpen
       If Len(.FileName) = 0 Then
           Exit Sub
       End If
       sFile = .FileName
   End With
   'ToDo: add code to process the opened file

How do I finish that code/script so that it loads a ANSI encoded file into a RichTextBox?

Someone help please. Thanks!