在Visual Basic（VB）中制作一个简单的记事本程序，你可以按照以下步骤进行：
新建工程
打开VB编程环境，新建一个标准EXE工程。
将工程的Caption属性改为“超级记事本”，并为其添加一个合适的图标。
添加控件
在工具箱中，找到并添加Microsoft RichTextBox 6.0控件和Microsoft CommonDialog 6.0控件。
将RichTextBox控件的大小和位置调整为适当的大小和位置，并将ScrollBar属性设置为2-rtfVertical，以便在打开和编辑文件时可以使用垂直滚动条。
绘制界面
在窗体上绘制RichTextBox控件和CommonDialog控件。
为窗体添加菜单栏，包括“文件”、“编辑”、“搜索”和“帮助”菜单。
在“文件”菜单中添加“新建”、“打开”、“保存”和“退出”子菜单。
在“编辑”菜单中添加“复制”、“剪切”、“粘贴”、“删除”和“全选”子菜单。
在“搜索”菜单中添加“查找”和“查找下一个”子菜单。
在“帮助”菜单中添加“关于”子菜单。
编写代码
为每个菜单项编写相应的Click事件处理程序，实现相应的功能，例如新建文件、打开文件、保存文件、退出程序、复制、剪切、粘贴、删除、全选、查找和查找下一个等。
使用CommonDialog控件实现文件打开和保存对话框。
为RichTextBox控件添加按键按下事件处理器，实现文本编辑功能。
自动添加日志
在打开文件时，检查文件的第一行是否包含“.LOG”字样。
如果包含，则在文件尾部自动添加当前时间和日期。
其他功能
可以添加一些额外功能，例如设置字体、颜色等。
```vb
Private Sub mnuNew_Click（）
' 新建文件
RichTextBox1.Clear
End Sub
Private Sub mnuOpen_Click（）
' 打开文件
Dim filePath As String
filePath = CommonDialog1.FileName
If filePath <> "" Then
RichTextBox1.LoadFile filePath
End If
End Sub
Private Sub mnuSave_Click（）
' 保存文件
Dim filePath As String
filePath = CommonDialog1.FileName
If filePath <> "" Then
RichTextBox1.SaveFile filePath
End If
End Sub
Private Sub mnuExit_Click（）
' 退出程序
End
Private Sub mnuCut_Click（）
' 剪切
RichTextBox1.Cut
End Sub
Private Sub mnuCopy_Click（）
' 复制
RichTextBox1.Copy
End Sub
Private Sub mnuPaste_Click（）
' 粘贴
RichTextBox1.Paste
End Sub
Private Sub mnuDelete_Click（）
' 删除
RichTextBox1.SelText = ""
End Sub
Private Sub mnuSelectAll_Click（）
' 全选
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = RichTextBox1.Text.Length
End Sub
Private Sub mnuFind_Click（）
' 查找
Dim sFind As String
sFind = InputBox（"请输入要查找的字词：", "查找内容"）
If sFind <> "" Then
RichTextBox1.Find（sFind）
End If
End Sub
Private Sub mnuFindNext_Click（）
' 查找下一个
RichTextBox1.FindNext
End Sub
```
通过以上步骤和代码，你可以创建一个功能基本的VB记事本程序。根据需求，你可以进一步扩展和完善程序的功能。