I have, a long time ago written some Wordbasic but I am still struggling
with VBA having not done any programming of sorts for some time.  I need to
convert the code below to VBA,  I have manage some of it but not all.  All
the code is below.  I again appologise if this is not the way to go about
this in newsgroups.  But was hoping someone would convert this for me, so I
could learn from it.  I would be willing to pay as in the past these groups
have helped me convert smaller programs to VBA.  I tend to struggle with
"Case Statements"  etc.  I would really be grateful if someone could help me
with this.  Thanks again for all the help in the past.

Here is the code.

Louise

Option Explicit

Dim ANO$, ANOinstr$, ANOerror, ANOnull
Dim ADN$, ADNinstr$, ADNerror, ADNnull
Dim ADNminlen, ADNmaxlen, ADNminval, ADNmaxval
Dim CONF, CONFinstr$
Dim TIT$, TITinstr$, TITerror, TITnull, TITminlen, TITmaxlen
Dim RN$, RNinstr$, RNerror, RNnull, RNminlen, RNmaxlen
Dim RNminval, RNmaxval
Dim PCC$, PCCinstr$, PCCerror, PCCnull, PCCminlen, PCCmaxlen
Dim ORF$, ORFinstr$, ORFerror, ORFnull, ORFminlen, ORFmaxlen
Dim STL__$(), STL_, STLinstr$
Dim INS$, INSinstr$, INSerror, INSnull, INSminlen, INSmaxlen
Dim SUN$, SUNinstr$, SUNerror, SUNnull, SUNminlen, SUNmaxlen
Dim POS$, POSinstr$, POSerror, POSnull, POSminlen, POSmaxlen
Dim COM$, COMinstr$, COMerror, COMnull, COMminlen, COMmaxlen
Dim ADD1$, ADD1error, ADD1null, ADD1minlen, ADD1maxlen
Dim ADD2$, ADD2error, ADD2null, ADD2minlen, ADD2maxlen
Dim ADD3$, ADD3error, ADD3null, ADD3minlen, ADD3maxlen
Dim ADD4$, ADD4error, ADD4null, ADD4minlen, ADD4maxlen
Dim ADD1instr$, ADD2instr$
Dim ASN$, ASNinstr$, ASNerror, ASNnull, ASNminlen, ASNmaxlen
Dim TEL$, TELinstr$, TELerror, TELnull, TELminlen, TELmaxlen
Dim TELminval, TELmaxval
Dim FAX$, FAXinstr$, FAXerror, FAXnull, FAXminlen, FAXmaxlen
Dim FAXminval, FAXmaxval
Dim STAT, STATinstr$
Dim SUP$, SUPinstr$, SUPerror, SUPnull, SUPminlen, SUPmaxlen
Dim OCA$, OCAinstr$, OCAerror, OCAnull, OCAminlen, OCAmaxlen
Dim OKinstr$, Clearinstr$
Dim Doctype$, Asstype$, TCF, TC$, CGF$
Dim FN$, SC$, KN$, ST$, UCFlag
Dim IniPath$, IniFN1$, IniFN2$, FPath1$, FPath2$

Public Sub MAIN()
ReDim STL__$(5)
Dim x
Dim Dtime$
Dim Author$
Dim FullSubName$
Dim DearSubName$
Dim Submitter$
Dim Cat$
ANO$ = ""
ANOinstr$ = ""
ANOerror = 0
ANOnull = 0
ADN$ = ""
ADNinstr$ = ""
ADNerror = 0
ADNnull = 0
ADNminlen = 0
ADNmaxlen = 0
ADNminval = 0
ADNmaxval = 0
CONF = 0
CONFinstr$ = ""
TIT$ = ""
TITinstr$ = ""
TITerror = 0
TITnull = 0
TITminlen = 0
TITmaxlen = 0
RN$ = ""
RNinstr$ = ""
RNerror = 0
RNnull = 0
RNminlen = 0
RNmaxlen = 0
RNminval = 0
RNmaxval = 0
PCC$ = ""
PCCinstr$ = ""
PCCerror = 0
PCCnull = 0
PCCminlen = 0
PCCmaxlen = 0
ORF$ = ""
ORFinstr$ = ""
ORFerror = 0
ORFnull = 0
ORFminlen = 0
ORFmaxlen = 0
STL_ = 0
STLinstr$ = ""
INS$ = ""
INSinstr$ = ""
INSerror = 0
INSnull = 0
INSminlen = 0
INSmaxlen = 0
SUN$ = ""
SUNinstr$ = ""
SUNerror = 0
SUNnull = 0
SUNminlen = 0
SUNmaxlen = 0
POS$ = ""
POSinstr$ = ""
POSerror = 0
POSnull = 0
POSminlen = 0
POSmaxlen = 0
COM$ = ""
COMinstr$ = ""
COMerror = 0
COMnull = 0
COMminlen = 0
COMmaxlen = 0
ADD1$ = ""
ADD1error = 0
ADD1null = 0
ADD1minlen = 0
ADD1maxlen = 0
ADD2$ = ""
ADD2error = 0
ADD2null = 0
ADD2minlen = 0
ADD2maxlen = 0
ADD3$ = ""
ADD3error = 0
ADD3null = 0
ADD3minlen = 0
ADD3maxlen = 0
ADD4$ = ""
ADD4error = 0
ADD4null = 0
ADD4minlen = 0
ADD4maxlen = 0
ADD1instr$ = ""
ADD2instr$ = ""
ASN$ = ""
ASNinstr$ = ""
ASNerror = 0
ASNnull = 0
ASNminlen = 0
ASNmaxlen = 0
TEL$ = ""
TELinstr$ = ""
TELerror = 0
TELnull = 0
TELminlen = 0
TELmaxlen = 0
TELminval = 0
TELmaxval = 0
FAX$ = ""
FAXinstr$ = ""
FAXerror = 0
FAXnull = 0
FAXminlen = 0
FAXmaxlen = 0
FAXminval = 0
FAXmaxval = 0
STAT = 0
STATinstr$ = ""
SUP$ = ""
SUPinstr$ = ""
SUPerror = 0
SUPnull = 0
SUPminlen = 0
SUPmaxlen = 0
OCA$ = ""
OCAinstr$ = ""
OCAerror = 0
OCAnull = 0
OCAminlen = 0
OCAmaxlen = 0
OKinstr$ = ""
Clearinstr$ = ""
Doctype$ = ""
Asstype$ = ""
TCF = 0
TC$ = ""
CGF$ = ""
FN$ = ""
SC$ = ""
KN$ = ""
ST$ = ""
UCFlag = 0
IniPath$ = ""
IniFN1$ = ""
IniFN2$ = ""
FPath1$ = ""
FPath2$ = ""

'***************************************************************************
**
'  SET PARAMETERS FOR MACRO
'***************************************************************************
**
IniPath$ = "O:\Winword\Templates\"
IniFN1$ = "UserChoice.ini"
IniFN2$ = "InputRules.ini"
FPath1$ = "O:\Data\Hazrep\"
FPath2$ = "Draft\"

UCFlag = 1
Asstype$ = ""
STL__$(0) = "Dr."
STL__$(1) = "Miss"
STL__$(2) = "Mr."
STL__$(3) = "Mrs."
STL__$(4) = "Ms."
STL__$(5) = "Professor"

SetInputRules
LoadDefaults

'***************************************************************************
**
'  ENSURE CORRECT FOLDER STRUCTURE EXISTS
'***************************************************************************
**
On Error Resume Next
WordBasic.MkDir FPath1$
WordBasic.MkDir FPath1$ + FPath2$
Err.Number = 0

'***************************************************************************
**
' RESETS ENVIRONMENT
'***************************************************************************
**
WordBasic.DocMaximize 1
WordBasic.ViewPage
WordBasic.ViewZoomPageWidth
WordBasic.ToolsOptionsSave SummaryPrompt:=0

'***************************************************************************
**
'  DIALOG BOX DEFINITION
'***************************************************************************
**
WordBasic.BeginDialog 800, 400, "Chemical Assessment - Letter Format",
"AutoNew.AssLetfn"
    WordBasic.GroupBox 20, 10, 760, 100, "ASSESSMENT DETAILS"           '0
    WordBasic.Text 35, 35, 121, 13, "Assessment No:", "Text1"
'1
    WordBasic.TextBox 165, 33, 80, 18, "ANO$"                           '2
    WordBasic.Text 270, 35, 63, 13, "Add No:", "Text2"                  '3
    WordBasic.TextBox 335, 33, 30, 18, "ADN$"                           '4
    WordBasic.Text 400, 35, 113, 13, "Confidentiality:", "Text3"
'5
    WordBasic.GroupBox 505, 26, 160, 25, ""                         '6
    WordBasic.OptionGroup "CONF"    '                               7
        WordBasic.OptionButton 520, 33, 71, 16, "Cat B", "OptionButton1"
'8
        WordBasic.OptionButton 590, 33, 71, 16, "Cat C", "OptionButton2"
'9
    WordBasic.Text 35, 57, 105, 13, "Title/Subject:", "Text4"
'10
    WordBasic.TextBox 165, 55, 600, 18, "TIT$"                          '11
    WordBasic.Text 35, 79, 96, 13, "Request No:", "Text5"
'12
    WordBasic.TextBox 165, 77, 80, 18, "RN$"                            '13
    WordBasic.Text 270, 79, 123, 13, "PTD Cost Code:", "Text6"
'14
    WordBasic.TextBox 400, 77, 100, 18, "PCC$"                      '15
    WordBasic.Text 525, 79, 65, 13, "Our Ref:", "Text7"                 '16
    WordBasic.TextBox 590, 77, 175, 18, "ORF$"                      '17
    WordBasic.GroupBox 20, 120, 350, 100, "SUBMITTER DETAILS"           '18
    WordBasic.Text 35, 145, 40, 13, "Title:", "Text8"
'19
    WordBasic.DropListBox 125, 144, 70, 63, STL__$(), "STL"
'20
    WordBasic.Text 230, 145, 56, 13, "Initials:", "Text9"
'21
    WordBasic.TextBox 296, 143, 54, 18, "INS$"                          '22
    WordBasic.Text 35, 167, 72, 13, "Surname:", "Text10"
'23
    WordBasic.TextBox 125, 165, 225, 18, "SUN$"                     '24
    WordBasic.Text 35, 189, 72, 13, "Pos/Dept:", "Text11"
'25
    WordBasic.TextBox 125, 187, 225, 18, "POS$"                     '26
    WordBasic.GroupBox 390, 120, 390, 145, "COMPANY DETAILS"            '27
    WordBasic.Text 405, 145, 75, 13, "Company:", "Text12"
'28
    WordBasic.TextBox 480, 143, 285, 18, "COM$"                     '29
    WordBasic.Text 405, 167, 67, 13, "Address:", "Text13"
'30
    WordBasic.TextBox 480, 165, 285, 18, "ADD1$"                        '31
    WordBasic.TextBox 480, 187, 285, 18, "ADD2$"                        '32
    WordBasic.TextBox 480, 209, 285, 18, "ADD3$"                        '33
    WordBasic.TextBox 480, 231, 285, 18, "ADD4$"                        '34
    WordBasic.GroupBox 20, 230, 350, 150, "ASSESSOR DETAILS"            '35
    WordBasic.Text 35, 255, 49, 13, "Name:", "Text14"                   '36
    WordBasic.TextBox 125, 253, 225, 18, "ASN$"                     '37
    WordBasic.Text 35, 278, 57, 13, "Tel No:", "Text15"                 '38
    WordBasic.TextBox 125, 276, 40, 18, "TEL$"                          '39
    WordBasic.Text 230, 278, 60, 13, "Fax No:", "Text16"
'40
    WordBasic.TextBox 310, 276, 40, 18, "FAX$"                      '41
    WordBasic.Text 35, 301, 55, 13, "Status:", "Text17"                 '42
    WordBasic.GroupBox 125, 293, 225, 25, ""                            '43
    WordBasic.OptionGroup "STAT"                                    '44
        WordBasic.OptionButton 135, 300, 124, 16, "Independent",
"OptionButton3"    '45
        WordBasic.OptionButton 255, 300, 91, 16, "Training", "OptionButton4"
'46
    WordBasic.Text 35, 324, 87, 13, "Supervisor:", "Text18"
'47
    WordBasic.TextBox 125, 322, 225, 18, "SUP$"                     '48
    WordBasic.Text 35, 347, 67, 13, "Other(s):", "Text19"
'49
    WordBasic.TextBox 125, 345, 225, 18, "OCA$"                     '50
    WordBasic.GroupBox 390, 275, 390, 68, "GUIDANCE NOTES"          '51
    WordBasic.Text 405, 300, 360, 26, "", "Text21"                      '52
    WordBasic.GroupBox 390, 353, 284, 27, ""                            '53
    WordBasic.Text 405, 363, 260, 13, "Click OK to proceed or X  (top) to
cancel.", "Text22"    '54
    WordBasic.CancelButton 692, 359, 88, 21                         '55
    WordBasic.OKButton 692, 359, 88, 21                             '56
    WordBasic.PushButton 705, 30, 60, 18, "Clear", "Push1"              '57
WordBasic.EndDialog

'***************************************************************************
**
'  CREATE DIALOG RECORD AND DISPLAY DIALOG BOX
'  (DisableInput stops Escape key interrupting macro)
...

read more »

If nobody steps forward to convert this code for you and you're going to try
it yourself, it might be a good idea to download the WordBasic helpfile, so
you have a reference to what all the commands mean and what they are doing.
It's available at
http://www.microsoft.com/downloads/release.asp?ReleaseID=26572

Hope this helps,
regards,
Astrid

So that all can benefit from the discussion, please post all follow-ups to
the newsgroup.
Visit the MVP Word FAQ site at http://www.mvps.org/word/

| First of all I am sorry I have posted this in another Newsgroup as I wasnt
| sure how to post to a few at the same time.
|
| I have, a long time ago written some Wordbasic but I am still struggling
| with VBA having not done any programming of sorts for some time.  I need
to
| convert the code below to VBA,  I have manage some of it but not all.  All
| the code is below.  I again appologise if this is not the way to go about
| this in newsgroups.  But was hoping someone would convert this for me, so
I
| could learn from it.  I would be willing to pay as in the past these
groups
| have helped me convert smaller programs to VBA.  I tend to struggle with
| "Case Statements"  etc.  I would really be grateful if someone could help
me
| with this.  Thanks again for all the help in the past.
|
| Here is the code.
|
| Louise
|
|
| Option Explicit
|
|
|
| Dim ANO$, ANOinstr$, ANOerror, ANOnull
| Dim ADN$, ADNinstr$, ADNerror, ADNnull
| Dim ADNminlen, ADNmaxlen, ADNminval, ADNmaxval
| Dim CONF, CONFinstr$
| Dim TIT$, TITinstr$, TITerror, TITnull, TITminlen, TITmaxlen
| Dim RN$, RNinstr$, RNerror, RNnull, RNminlen, RNmaxlen
| Dim RNminval, RNmaxval
| Dim PCC$, PCCinstr$, PCCerror, PCCnull, PCCminlen, PCCmaxlen
| Dim ORF$, ORFinstr$, ORFerror, ORFnull, ORFminlen, ORFmaxlen
| Dim STL__$(), STL_, STLinstr$
| Dim INS$, INSinstr$, INSerror, INSnull, INSminlen, INSmaxlen
| Dim SUN$, SUNinstr$, SUNerror, SUNnull, SUNminlen, SUNmaxlen
| Dim POS$, POSinstr$, POSerror, POSnull, POSminlen, POSmaxlen
| Dim COM$, COMinstr$, COMerror, COMnull, COMminlen, COMmaxlen
| Dim ADD1$, ADD1error, ADD1null, ADD1minlen, ADD1maxlen
| Dim ADD2$, ADD2error, ADD2null, ADD2minlen, ADD2maxlen
| Dim ADD3$, ADD3error, ADD3null, ADD3minlen, ADD3maxlen
| Dim ADD4$, ADD4error, ADD4null, ADD4minlen, ADD4maxlen
| Dim ADD1instr$, ADD2instr$
| Dim ASN$, ASNinstr$, ASNerror, ASNnull, ASNminlen, ASNmaxlen
| Dim TEL$, TELinstr$, TELerror, TELnull, TELminlen, TELmaxlen
| Dim TELminval, TELmaxval
| Dim FAX$, FAXinstr$, FAXerror, FAXnull, FAXminlen, FAXmaxlen
| Dim FAXminval, FAXmaxval
| Dim STAT, STATinstr$
| Dim SUP$, SUPinstr$, SUPerror, SUPnull, SUPminlen, SUPmaxlen
| Dim OCA$, OCAinstr$, OCAerror, OCAnull, OCAminlen, OCAmaxlen
| Dim OKinstr$, Clearinstr$
| Dim Doctype$, Asstype$, TCF, TC$, CGF$
| Dim FN$, SC$, KN$, ST$, UCFlag
| Dim IniPath$, IniFN1$, IniFN2$, FPath1$, FPath2$
|
| Public Sub MAIN()
| ReDim STL__$(5)
| Dim x
| Dim Dtime$
| Dim Author$
| Dim FullSubName$
| Dim DearSubName$
| Dim Submitter$
| Dim Cat$
| ANO$ = ""
| ANOinstr$ = ""
| ANOerror = 0
| ANOnull = 0
| ADN$ = ""
| ADNinstr$ = ""
| ADNerror = 0
| ADNnull = 0
| ADNminlen = 0
| ADNmaxlen = 0
| ADNminval = 0
| ADNmaxval = 0
| CONF = 0
| CONFinstr$ = ""
| TIT$ = ""
| TITinstr$ = ""
| TITerror = 0
| TITnull = 0
| TITminlen = 0
| TITmaxlen = 0
| RN$ = ""
| RNinstr$ = ""
| RNerror = 0
| RNnull = 0
| RNminlen = 0
| RNmaxlen = 0
| RNminval = 0
| RNmaxval = 0
| PCC$ = ""
| PCCinstr$ = ""
| PCCerror = 0
| PCCnull = 0
| PCCminlen = 0
| PCCmaxlen = 0
| ORF$ = ""
| ORFinstr$ = ""
| ORFerror = 0
| ORFnull = 0
| ORFminlen = 0
| ORFmaxlen = 0
| STL_ = 0
| STLinstr$ = ""
| INS$ = ""
| INSinstr$ = ""
| INSerror = 0
| INSnull = 0
| INSminlen = 0
| INSmaxlen = 0
| SUN$ = ""
| SUNinstr$ = ""
| SUNerror = 0
| SUNnull = 0
| SUNminlen = 0
| SUNmaxlen = 0
| POS$ = ""
| POSinstr$ = ""
| POSerror = 0
| POSnull = 0
| POSminlen = 0
| POSmaxlen = 0
| COM$ = ""
| COMinstr$ = ""
| COMerror = 0
| COMnull = 0
| COMminlen = 0
| COMmaxlen = 0
| ADD1$ = ""
| ADD1error = 0
| ADD1null = 0
| ADD1minlen = 0
| ADD1maxlen = 0
| ADD2$ = ""
| ADD2error = 0
| ADD2null = 0
| ADD2minlen = 0
| ADD2maxlen = 0
| ADD3$ = ""
| ADD3error = 0
| ADD3null = 0
| ADD3minlen = 0
| ADD3maxlen = 0
| ADD4$ = ""
| ADD4error = 0
| ADD4null = 0
| ADD4minlen = 0
| ADD4maxlen = 0
| ADD1instr$ = ""
| ADD2instr$ = ""
| ASN$ = ""
| ASNinstr$ = ""
| ASNerror = 0
| ASNnull = 0
| ASNminlen = 0
| ASNmaxlen = 0
| TEL$ = ""
| TELinstr$ = ""
| TELerror = 0
| TELnull = 0
| TELminlen = 0
| TELmaxlen = 0
| TELminval = 0
| TELmaxval = 0
| FAX$ = ""
| FAXinstr$ = ""
| FAXerror = 0
| FAXnull = 0
| FAXminlen = 0
| FAXmaxlen = 0
| FAXminval = 0
| FAXmaxval = 0
| STAT = 0
| STATinstr$ = ""
| SUP$ = ""
| SUPinstr$ = ""
| SUPerror = 0
| SUPnull = 0
| SUPminlen = 0
| SUPmaxlen = 0
| OCA$ = ""
| OCAinstr$ = ""
| OCAerror = 0
| OCAnull = 0
| OCAminlen = 0
| OCAmaxlen = 0
| OKinstr$ = ""
| Clearinstr$ = ""
| Doctype$ = ""
| Asstype$ = ""
| TCF = 0
| TC$ = ""
| CGF$ = ""
| FN$ = ""
| SC$ = ""
| KN$ = ""
| ST$ = ""
| UCFlag = 0
| IniPath$ = ""
| IniFN1$ = ""
| IniFN2$ = ""
| FPath1$ = ""
| FPath2$ = ""
|
|
'***************************************************************************
| **
| '  SET PARAMETERS FOR MACRO
|
'***************************************************************************
| **
| IniPath$ = "O:\Winword\Templates\"
| IniFN1$ = "UserChoice.ini"
| IniFN2$ = "InputRules.ini"
| FPath1$ = "O:\Data\Hazrep\"
| FPath2$ = "Draft\"
|
| UCFlag = 1
| Asstype$ = ""
| STL__$(0) = "Dr."
| STL__$(1) = "Miss"
| STL__$(2) = "Mr."
| STL__$(3) = "Mrs."
| STL__$(4) = "Ms."
| STL__$(5) = "Professor"
|
| SetInputRules
| LoadDefaults
|
|
'***************************************************************************
| **
| '  ENSURE CORRECT FOLDER STRUCTURE EXISTS
|
'***************************************************************************
| **
| On Error Resume Next
| WordBasic.MkDir FPath1$
| WordBasic.MkDir FPath1$ + FPath2$
| Err.Number = 0
|
|
'***************************************************************************
| **
| ' RESETS ENVIRONMENT
|
'***************************************************************************
| **
| WordBasic.DocMaximize 1
| WordBasic.ViewPage
| WordBasic.ViewZoomPageWidth
| WordBasic.ToolsOptionsSave SummaryPrompt:=0
|
|
'***************************************************************************
| **
| '  DIALOG BOX DEFINITION
|
'***************************************************************************
| **
| WordBasic.BeginDialog 800, 400, "Chemical Assessment - Letter Format",
| "AutoNew.AssLetfn"
|     WordBasic.GroupBox 20, 10, 760, 100, "ASSESSMENT DETAILS"           '0
|     WordBasic.Text 35, 35, 121, 13, "Assessment No:", "Text1"
| '1
|     WordBasic.TextBox 165, 33, 80, 18, "ANO$"                           '2
|     WordBasic.Text 270, 35, 63, 13, "Add No:", "Text2"                  '3
|     WordBasic.TextBox 335, 33, 30, 18, "ADN$"                           '4
|     WordBasic.Text 400, 35, 113, 13, "Confidentiality:", "Text3"
| '5
|     WordBasic.GroupBox 505, 26, 160, 25, ""                         '6
|     WordBasic.OptionGroup "CONF"    '                               7
|         WordBasic.OptionButton 520, 33, 71, 16, "Cat B", "OptionButton1"
| '8
|         WordBasic.OptionButton 590, 33, 71, 16, "Cat C", "OptionButton2"
| '9
|     WordBasic.Text 35, 57, 105, 13, "Title/Subject:", "Text4"
| '10
|     WordBasic.TextBox 165, 55, 600, 18, "TIT$"
'11
|     WordBasic.Text 35, 79, 96, 13, "Request No:", "Text5"
| '12
|     WordBasic.TextBox 165, 77, 80, 18, "RN$"
'13
|     WordBasic.Text 270, 79, 123, 13, "PTD Cost Code:", "Text6"
| '14
|     WordBasic.TextBox 400, 77, 100, 18, "PCC$"                      '15
|     WordBasic.Text 525, 79, 65, 13, "Our Ref:", "Text7"
'16
|     WordBasic.TextBox 590, 77, 175, 18, "ORF$"                      '17
|     WordBasic.GroupBox 20, 120, 350, 100, "SUBMITTER DETAILS"
'18
|     WordBasic.Text 35, 145, 40, 13, "Title:", "Text8"
| '19
|     WordBasic.DropListBox 125, 144, 70, 63, STL__$(), "STL"
| '20
|     WordBasic.Text 230, 145, 56, 13, "Initials:", "Text9"
| '21
|     WordBasic.TextBox 296, 143, 54, 18, "INS$"
'22
|     WordBasic.Text 35, 167, 72, 13, "Surname:", "Text10"
| '23
|     WordBasic.TextBox 125, 165, 225, 18, "SUN$"                     '24
|     WordBasic.Text 35, 189, 72, 13, "Pos/Dept:", "Text11"
| '25
|     WordBasic.TextBox 125, 187, 225, 18, "POS$"                     '26
|     WordBasic.GroupBox 390, 120, 390, 145, "COMPANY DETAILS"
'27
|     WordBasic.Text 405, 145, 75, 13, "Company:", "Text12"
| '28
|     WordBasic.TextBox 480, 143, 285, 18, "COM$"                     '29
|     WordBasic.Text 405, 167, 67, 13, "Address:", "Text13"
| '30
|     WordBasic.TextBox 480, 165, 285, 18, "ADD1$"
'31
|     WordBasic.TextBox 480, 187, 285, 18, "ADD2$"
'32
|     WordBasic.TextBox 480, 209, 285, 18, "ADD3$"
'33
|     WordBasic.TextBox 480, 231, 285, 18, "ADD4$"
'34
|     WordBasic.GroupBox 20, 230, 350, 150, "ASSESSOR DETAILS"
'35
|     WordBasic.Text 35, 255, 49, 13, "Name:", "Text14"
'36
|     WordBasic.TextBox 125, 253, 225, 18, "ASN$"                     '37
|     WordBasic.Text 35, 278, 57, 13, "Tel No:", "Text15"
'38
|     WordBasic.TextBox 125, 276, 40, 18, "TEL$"
'39
|     WordBasic.Text 230, 278, 60, 13, "Fax No:", "Text16"
| '40
|     WordBasic.TextBox 310, 276, 40, 18, "FAX$"                      '41
|     WordBasic.Text 35, 301, 55, 13, "Status:", "Text17"
'42
|     WordBasic.GroupBox 125, 293, 225, 25, ""
'43
|     WordBasic.OptionGroup "STAT"                                    '44
|         WordBasic.OptionButton 135, 300, 124, 16, "Independent",
| "OptionButton3"    '45
|         WordBasic.OptionButton 255, 300, 91, 16, "Training",
"OptionButton4"
| '46
|     WordBasic.Text 35, 324, 87, 13, "Supervisor:", "Text18"
| '47
|     WordBasic.TextBox 125, 322, 225, 18, "SUP$"                     '48
|  
...

read more »

A couple of other articles that might be of interest to you at the MVP site:

http://www.mvps.org/word/FAQs/MacrosVBA/WordBasicToVBA.htm

http://www.mvps.org/word/FAQs/MacrosVBA/VBABasicsIn15Mins.htm

Bill Coan
Fill out letters, contracts, forms, in seconds! DataPrompter
prompts you for data, inserts it, updates it automatically.
Details at http://www.wordsite.com/DataPrompter.html

read more »