Dim locpath As String = TextBoxX8.Text
        Dim title As String = "title.km"
        Dim generatetext As String = "gentext.km"
        Dim key1 As String = "key1.km"
        Dim key2 As String = "key2.km"
        Dim key3 As String = "key3.km"
        Dim key4 As String = "key4.km"
        Dim key5 As String = "key5.km"
        'Optional HMWT'
        Dim hmwt As String = "hmwt.km"