Passing A Filename

<script type="text/vbscript">
Dim objWord
Sub Btn1_onclick()
call OpenDoc("K:DeloitteTeam1 Status reportJavaProgramshi.txt")
End Sub

Sub OpenDoc(strLocation)

Set objWord = CreateObject("Word.Application")
objWord.Visible = true
objWord.Documents.Open strLocation
End Sub
</script>

I would like to pass the filename used above in the button code below so
the above code could be coded only once and then mutiple button code
could be used.

<td><INPUT TYPE=BUTTON NAME=Btn1 VALUE="Requirements Template"></td>