Dim server As BASICATLSERVERLib.TheCoClass

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If server Is Nothing Then
        Set server = New BASICATLSERVERLib.TheCoClass
    End If
    If IsEmpty(Target) Then
        Target.Value = server.getString
    Else
        server.setString (Target.Value)
    End If
End Sub