Class_Terminate()が実行されるタイミングでプロパティは存在しますか？

Private suffix As String
Private Const LOCK_FILE = "c:\temp\locktest."

Public Sub MakeFile(ByVal ipAddress As String)

　　suffix = Replace(ipAddress, ".", "_")

　　Dim fno As Integer
　　fno = FreeFile
　　Open LOCK_FILE & suffix For Output As #fno
　　Print #fno, Now & "," & App.EXEName
　　Close #fno

End Sub

Public Function IsFile() As Boolean

　　IsFile = True

　　Dim fileName As String
　　fileName = Dir(LOCK_FILE & "*")

　　If fileName <> "" Then
　　　　IsFile = False
　　End If

End Function

'デストラクタ
Private Sub Class_Terminate()

　　Kill LOCK_FILE & suffix

End Sub

Public Sub testFunction()

　　Dim Lock As New LockFile
　　If Lock.IsFile Then
　　　　Call Lock.MakeLock(Winsock1.LocalIP)
　　Else
　　　　MsgBox "他の場所で実行中です、暫く待ってもう一度実行してください。"
　　　　End Sub
　　End If

　　処理....

End Sub

Private Sub Class_Terminate()

　　Kill LOCK_FILE & suffix

End Sub

koaraさんの書き込み (2006-08-28 14:51) より:

Dim Lock As New LockFile

　　Else
　　　　MsgBox "他の場所で実行中です、暫く待ってもう一度実行してください。"
　　　　End Sub
　　End If

Dim Lock As New LockFile
と
Dim Lock As LockFile
　Set Lock = New LockFile

誤記がある (正しくは Exit Sub) ということは、正しく転記されていないわけで、
転記できていない部分に何か潜んでいるようにも思えます。

　　Else
　　　　MsgBox "他の場所で実行中です、暫く待ってもう一度実行してください。"
　　　　Exit Sub
　　End If

Private Sub Class_Terminate()

　　Kill LOCK_FILE & suffix

End Sub

Private Sub Class_Terminate()
　　If suffix <> "" Then
　　　　Kill LOCK_FILE & suffix
　　Else
　　　　Exit Sub
　　End If
End Sub

koaraさんの書き込み (2006-08-28 17:22) より:

Dim Lock As New LockFile

Dim Lock As LockFile
Set Lock = New LockFile

の違いを考えていたらレスが遅くなってしまいました、すみません。
上記はどういう場合に違いがあるのでしょうか？

仰られている可能性というのはtestFunction()内で
再度testFunction()が呼び出される可能性のことだと解釈したのですが。
それでしたら無いと思います。

既にsuffixが""の時があるようで

Private Sub Class_Terminate()
　　If suffix <> "" Then
　　　　Kill LOCK_FILE & suffix
　　Else
　　　　Exit Sub
　　End If
End Sub

【Dim x As New MyClass の動作について】
Visual Basic 6.0 では、このコードのある行ではオブジェクトは生成されずに、それを利用するタイミングに、オブジェクトがすでに作られているかどうかをチェックし、なければ作成されるというものでした。
http://www.microsoft.com/japan/msdn/net/vbtransitionguide/chapter4/chapter4_9.aspx

2006/08/28 10:11:30,vbのフォーム名,xxx_xxx_xxx_xxx(ipアドレス) ロックファイル作成<--a1
2006/08/28 10:11:32,vbのフォーム名,xxx_xxx_xxx_xxx ロックファイル削除<--a2
2006/08/28 10:11:38,vbのフォーム名,xxx_xxx_xxx_xxx ロックファイル作成 <--b1
2006/08/28 10:11:43,vbのフォーム名, ロックファイル不明 <--c1

a1:ロックファイル作成 ---> MakeFile()内でログを出力
a2:ロックファイル削除 ---> Class_Terminate()内でログを出力
c1:ロックファイル不明 ---> Class_Terminate()内でログを出力

a1とa2は正常時のペア(ロックファイル作成・削除で対という意味)です。

Private Sub Class_Terminate()
　　If suffix <> "" Then
　　　　Kill LOCK_FILE & suffix
　　Else
　　　　Exit Sub <----ここでｃ１：ロックファイル不明のログを出力
　　End If
<----ここでａ１：ロックファイル削除のログを出力
End Sub