Imports Microsoft.Win32
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes", "MS Shell Dlg", "Error Could Not Load The Key")
        TextBox2.Text = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes", "MS Shell Dlg 2", "Error Could Not Load The Key")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes", "MS Shell Dlg", TextBox1.Text)
        Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes", "MS Shell Dlg 2", TextBox2.Text)
    End Sub

    Private Sub ResetFontsToOriginalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ResetFontsToOriginalToolStripMenuItem.Click
        Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes", "MS Shell Dlg", "Microsoft Sans Serif")
        Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes", "MS Shell Dlg 2", "Tahoma")
    End Sub

-----------------------Problem V---------------------------------------------------------------

    Private Sub SaveFontTotxtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveFontTotxtToolStripMenuItem.Click
        Dim FILE_NAME As String = "C:\anyfont\backup\Backup.txt"
        If System.IO.File.Exists(FILE_NAME) = True Then
        ElseIf (Not System.IO.Directory.Exists("C:\anyfont\backup\")) Then
            System.IO.Directory.CreateDirectory("C:\anyfont\backup\")
            Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
            objWriter.Write("Font 1:    ")
            objWriter.Write(TextBox1.Text)
            objWriter.Write(vbCrLf)
            objWriter.Write("Font 2:    ")
            objWriter.Write(TextBox2.Text)
            objWriter.Close()
            MsgBox("Text written to file")
        Else
            MsgBox("File Does Not Exist")
        End If
    End Sub
End Class

-----------------------Problem ^---------------------------------------------------------------